home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1998 October / Macworld (1998-10).dmg / Updaters / Curvus Pro / Plug-ins / Plug-ins factory / GenericPlugIn.p < prev    next >
Text File  |  1997-04-27  |  1KB  |  57 lines
  1. UNIT CodeResource;
  2.  
  3. INTERFACE
  4.  
  5.     USES
  6.         OSUtils;
  7.  
  8.     TYPE
  9.         plugInParameterNumber=RECORD
  10.             realPart,imPart:Double;                    { Complex number }
  11.         END;
  12.         plugInParameterArray=ARRAY[0..0] OF plugInParameterNumber;
  13.         plugInParameterPtr=^plugInParameterArray;
  14.         plugInParameterHandle=^plugInParameterPtr;
  15.         
  16.         trigoMode=(deg,rad,grad);
  17.  
  18.     {$MAIN}
  19.     PROCEDURE main(params:plugInParameterHandle;mode:trigoMode);
  20.  
  21. IMPLEMENTATION
  22.     
  23.     USES
  24.         fp;
  25.  
  26.  
  27. { ============================================================================
  28.   Main procedure (modify only this procedure !)
  29.   
  30.     params     Input parameters (fields 1,2,...)
  31.                Result   (field 0)
  32.   ============================================================================ }
  33.   
  34.     PROCEDURE main(params:plugInParameterHandle;mode:trigoMode);
  35.     VAR
  36.     { ====================
  37.       Variables:
  38.       ==================== }
  39.         sum:Double;
  40.         
  41.     BEGIN
  42.     { ====================
  43.       Calculating:
  44.       ==================== }
  45.     
  46.         {...}
  47.         sum:=params^^[1].realPart        { real part of the first parameter }
  48.              +params^^[2].imPart;        { imaginary part of the second parameter }
  49.         
  50.     { ====================
  51.       Result:
  52.       ==================== }
  53.          params^^[0].realPart:=sum;
  54.          params^^[0].imPart:=0;            { always fill the two field of params^^[0] }
  55.     END;
  56.  
  57. END.